﻿Public Class SAEventArgs
    Inherits EventArgs
    Public Property Result As Results
    Public Property Message As String
    Sub New(EventMessage As String, e As Results)
        Result = e
        Message = EventMessage
    End Sub
    Enum Results
        'General
        Success = 1
        GeneralFailure = 2
        UpdateStart = 3
        UpdateEnd = 4
        MessageSent = 5
        ConnectionState = 6
        FileMissing = 7
        Undefined = 8
        NotConnected = 9

        'Category
        CategoryEdit = 200
        CategoryAdd = 201

        'Application
        AppSelected = 100
        AppUpdated = 101

        'Definition Errors
        MissingServerName = 300
        MissingFolder = 301
        MissingVersionFile = 302
    End Enum
End Class
